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DBD NAME=IVPDB1,ACCESS=(HIDAM,0SAM) 
DIR DD1=DFSIVD1,SIZE=2048, UOW=(500,50,10) 




DATASETDD1=DFSlVD1A,DEViCE=3380,SIZE=2048 

SEGM NAME=A1111111.PARENT=0,BYTES=40,RULES=(LLV,LAST),PTR=(TB,CTR} 

FIELD NAME=(A1111 111 ,SEQ,U),BYTES=01 0,START=00001 JYPE=C 

FIELD NAME=A9999999,BYTES=01 0,START=0001 1 ,TYPE=C 

LCHILD NAME=(A1,IVPDB1I),P0INTER=INDX,RULES=LAST 

LCHILD NAME=(A1X,IVPDB1X),P0INTER=INDX 

XDFLD NAME=AXXXXXXX,SEGMENT=A1111111,SRCH=(A9999999) 

LCHILD NAME=(C1X, IVPDBIZ),POINTER=INDX 

XDFLD NAME=CXXXXXXX,SEGMENT=C1 111111 ,SRCH=(C9999999) 

DATASET DD1=DFSIVD1B,DEVICE=3380,SIZE=4096 

SEGM NAME=B1111111,PARENT=A1111111,BYTES=(1000,50), X 

RULES=(LLV,LAST),PTR=(TB) 
FIELD NAME=(B1111111,SEQ,M),BYTES=010, START=00003,TYPE=C 
FIELD NAME=/SXB1 

LCHILD NAME=(B1X,1VPDB1 Y),POiNTER=INDX 

XDFLD., NAME=BXXXXXXX,SEGMENT=B1111111,SRCH=(B1111111),SUBSEQ=(/SXB1) 

DATASET DD1=DFSiVD1C,DEVICE=3380,SIZE=8192 

SEGM NAME=C1111111,PARENT=B1111111,C0MPRTN=(DFSKMPX0,DATA,INIT), X 

RULES={LLV,LAST),PTR=(TB),BYTES=(8000,50) 
FIELD NAME=(C1111111 ,SEQ,U),BYTES=010,START=00003,TYPE=C 
FIELD NAME=C9999999,BYTES=010,START=00011.TYPE=C 
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DBD NAME=IVPDB2. ACCESS=HDAM,RMNAME=(DFSHDC40,4,1 000) 
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DIR DD1=?DFSIVD2, UOW=(100,10) 

DATASETDD1=DFSIVD2A,DEVICE=3380,S1ZE=2048 

SEGM NAME=A1111111,PARENT=0,BYTES=40,RULES=(LLL,LAST), X 

COMPRTN=(DFSKMPX0,DATA,INIT) 
FIELD NAME=(A1111111,SEQ,U),BYTES=010,START=00001JYPE=C 

DATASET DD1=DFSIVD2B,DEVICE=3380,SIZE=4096 

SEGM NAME=B1111111,PARENT=A1111111,BYTES=(1000,50), X 
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FIELD NAME=(B1 1 11111 ,SEQ,U),BYTES=01 0,START=00003,TYPE=C 

DATASET DD1=DFSIVD2C,DEVICE=3380,SIZE=8192 

SEGM NAME=C1111111 ,PARENT=B 11 111 1 1 ,COMPRTN={DFSKMPXO,DATA.INIT), 

RULES=(LLV,LAST),PTR=TB,BYTES=8000 
FIELD NAME=(C1111111,SEQ,U),BYTES=010,START=00001,TYPE=C 
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